| Nicks menu

DirectorObey Director:Menus.Library.!Core
DirectorObey Director:Menus.Library.DDE
DirectorObey Director:Menus.Library.iXpandCD

DirectorIcon !Director "00:00" -left -priority &0E000000 -menu Director -select Paths -adjust Pinboard -time <37>24:%MI -dragto "Dynamic:/Director:Menus.Files.MenuMenu" -dragfrom "*Command:Dir |<Director$CurrentDir>"

DirectorFilter "Task ManagerAdjust" "Task Manager" "Dynamic:DirectorObey Director:Menus.System.Time" -icon IconBar -adjust
DirectorFilter "ShareFSAdjust" "ShareFS" "Dynamic:/Director:Menus.System.ShareFS" -icon IconBar -adjust

|DirectorWindow info Blob Director:Templates -command "/Director:Testing" -callevery 1 -background
Echo |<Director$Window> |<Director$Icon> |<Director$Buttons>"
|DirectorWindow save Blob2 Director:Templates
|DirectorWindow keys Blob3 Director:Templates

|---------------------------------------------------------------------------|

Menu "NicksMenu" "Pinboard"
	Option "Paths" -sub *
	Option "Director" -sub *
Dash
	Option "Desktop" -sub *
	Option "System" -sub *
	Option "Filing" -sub *
Dash
	Option "Comms" -sub *
		Command Filer_Run <Root$Dir>.Apps.Comms
	Option "Internet" -sub *
		Command Filer_Run <Root$Dir>.Apps.AntSuite|M<Root$Dir>.Apps.AntSuite.Apps
	Option "DDE" -sub *
		Command Filer_Run <Root$Dir>.DDE
	Option "ROM" -sub "Path:Resources:$"
		Command Filer_Run Resources:$
	Option "Apps" -sub "Path:|<Root$Dir>.Apps"
		Command Filer_Run <Root$Dir>.Apps
	Option "FS" -sub *
		Command Filer_Run <Root$Dir>.Apps.DiskStuff
	Option "FAX" -sub *
		Command Filer_Run <Root$Dir>.Apps.FAX
	Option "Utils" -sub *
		Command Filer_Run <Root$Dir>.Apps.Utils
Dash
	Option -path <Root$Dir>.Apps.Printing.!Printers
	Option -path <Root$Dir>.Apps.Zap.!Zap -up
Dash
	Option "Pinboard" -sub "OldMenu:" -bg 1 -fg 7
EndMenu

|---------------------------------------------------------------------------|

Menu "Paths"
	Option "Time" -sub "Dynamic:/Director:Apps.!Time"
	Option "Drives" -sub "Dynamic:/Director:Menus.System.FindDrives" -sprite small_path
	Option "Drives2" -sub "Dynamic:/Director:Menus.System.FindDrivez" -sprite small_path
|	Option "<Project>" -len 16 -sub "Dynamic:OpenProject |<MenuText>" -fg 13
Dash
	Option Root -path <Root$Dir>
	Option Apps -path <Root$Dir>.Apps -up
	Option -path <Root$Dir>.Nick -up
|	Option -path <Root$Dir>.A540
Dash
	Option "Run:" -sub "Dynamic:/Director:Menus.System.ExpPath Run:" -sprite small_path
	Option "C:" -sub "Dynamic:/Director:Menus.System.ExpPath C:" -sprite small_path
|	Option "D:" -sub "Dynamic:/Director:Menus.System.ExpPath D:" -sprite small_path
Dash
	Option -path <Boot$Dir> -up
	Option "Modules" -sub "Dynamic:/Director:Menus.System.ExpPath System:Modules" -sprite small_path
	Option "System:" -sub "Dynamic:/Director:Menus.System.ExpPath System:" -sprite sm!system
	Option "Scrap" -path |<Wimp$ScrapDir> -up
	Option -path <Boot$Dir>.Library -up
	Option -path % -up
	Option -path @ -up
EndMenu

|---------------------------------------------------------------------------|

Menu "Comms" -key C
	Option -path <Root$Dir>.Apps.Comms
	Option -path <Root$Dir>.Apps.Comms.In
	Option -path <Root$Dir>.Apps.Comms.Out
	Option -path <Root$Dir>.Apps.Comms.Docs
	Option "Outgoing"  -path <Root$Dir>.Apps.Comms.!TCPIPUser.MailDir.spool
Dash
	Option -path <Root$Dir>.Apps.Comms.!ARCterm
	Option -path <Root$Dir>.Apps.Comms.!CallDemon -key F8
	Option -path <Root$Dir>.Apps.Comms.!CBAdecode
	Option Mail -path <Root$Dir>.Apps.Comms.!TCPIPUser.MailDir.spool.mail.text
	Option News -path <Root$Dir>.Apps.Comms.!TCPIPUser.MailDir.folder
|	Option -path <Root$Dir>.Apps.Comms.SlipDial.!SLIPdial
	Option -path <Root$Dir>.Apps.Comms.!TCPIPUser
|	Option -path <Root$Dir>.Apps.Comms.!WimpKeys
	Option -path <Root$Dir>.Apps.Comms.!STD
	Option -path <Root$Dir>.Apps.Comms.WWW
|Dash
|	Option -path <Root$Dir>.Apps.Comms.ReadNews
|	Option -path <Root$Dir>.Apps.Comms.ReadNews.ka9q->rucp
|	Option -path <Root$Dir>.Apps.Comms.ReadNews.!Incorp
|	Option -path <Root$Dir>.Apps.Comms.ReadNews.!ReadNews
|	Option -path <Root$Dir>.Apps.Comms.ReadNews.rucp->ka9q
Dash
	Option -path <Root$Dir>.Apps.Comms.TTFN
	Option -path <Root$Dir>.Apps.Comms.TTFN.!NewsDir
	Option -path <Root$Dir>.Apps.Comms.TTFN.!NewsBase
	Option -path <Root$Dir>.Apps.Comms.TTFN.!TTFN
Dash
	Option -path ADFS::5.$.OldNews
EndMenu

|---------------------------------------------------------------------------|

Menu "Internet"
	Option -path <Root$Dir>.AntSuite
	Option -path <Root$Dir>.AntSuite.!InetSuite
	Option -path <Root$Dir>.AntSuite.Apps
	Option -path <Root$Dir>.AntSuite.!InetSuite.Internet.Spool.Mail
Dash
	Option "Any Mail?"
		Command TaskWindow "finger axis@post.demon.co.uk" -wimpslot 32k -quit
Dash
	Option -path <Root$Dir>.AntSuite.!CallDemon
	Option -path <Root$Dir>.AntSuite.logoff
EndMenu

|---------------------------------------------------------------------------|

Menu "FS"
	Option -path <Root$Dir>.Apps.DiskStuff
Dash
	Option -path <Root$Dir>.Apps.DiskStuff.!ArcFS
	Option -path <Root$Dir>.Apps.DiskStuff.!ArcFSr/w
	Option -path <Root$Dir>.Nick.!BGFS
	Option -path <Root$Dir>.Apps.SCSI.Atomwide.!BootSCSI
	Option -path <Root$Dir>.Apps.DiskStuff.!Cfs
	Option -path <Root$Dir>.Apps.SCSI.MOFS.!MagOpt -up
	Option -path <Root$Dir>.Apps.Utils.!Memphis
	Option -path <Root$Dir>.Apps.DiskStuff.!SparkFS
	Option -path <Root$Dir>.Apps.SCSI.!SPFS
Dash
	Option -path <Root$Dir>.Apps.DiskStuff.!DFSreader
	Option -path <Root$Dir>.Apps.Acorn.!Squash
	Option -path <Root$Dir>.Apps.AUN.!BootNet
	Option -path <Root$Dir>.Apps.AUN.!Server

EndMenu

|---------------------------------------------------------------------------|

Menu "FAX"
	Option -path <Root$Dir>.Apps.ArcFax
Dash
	Option -path <Root$Dir>.Apps.ArcFax.!ArcFax
	Option -path <Root$Dir>.Apps.FAX.!FaxMngr.!FaxView
Dash
Set FaxMachine$Path Share::A540.$.Apps.FAX.!Faxes.ReadFaxes.NewFaxes.
	Option "Remote Faxes" -sub Path:FaxMachine: -sprite small_dir
		Command Filer_OpenDir FaxMachine:
	Option "Remote Log" -sprite small_fff
		Command Filer_Run FaxMachine:ReceiveLog
EndMenu

|---------------------------------------------------------------------------|

Menu "Utils"
	Option -path <Root$Dir>.Apps.Utils
Dash
	Option -path <Root$Dir>.Apps.Utils.!DeskUtils
	Option -path <Root$Dir>.Apps.Utils.!Dissi
	Option -path <Root$Dir>.Apps.Utils.!Mangify
	Option -path <Root$Dir>.Apps.Utils.!Memphis
	Option -path <Root$Dir>.Apps.Utils.!Menon
	Option -path <Root$Dir>.Apps.Utils.!RiscBASIC
	Option -path <Root$Dir>.Apps.Utils.!StrongED
	Option -path <Root$Dir>.Apps.Utils.!StrongHlp
|	Option -path <Root$Dir>.Apps.Acorn.!SetIcons
	Option -path <Root$Dir>.Apps.Utils.!Usage
EndMenu

|---------------------------------------------------------------------------|

Menu "Hidden"
	Option "Show call logger main window" -key F9
		Command Set CallLogs$OpenWindow "go"
EndMenu

|---------------------------------------------------------------------------|
